perm filename PPSAV.BUG[2,TES] blob
sn#042982 filedate 1973-05-15 generic text, type T, neo UTF8
18.3K 25-APR-73
TOTAL= 51.8K
EXIT
↑C
.DO NIT
EXIT
↑C
.
SAIL: PUB 1
PUBDFS 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
2 3 4 5 6 7
PUBINR 1
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35DR
YROT REMOP:STCNST
PUB, PAGE 35
00400 FOR J ← "a" THRU "z" DO
DPB(J-("a"-"A"), UPCASE(J)) ; DPB(J←"!", UPCASE(
"_")) ;
CALLED FROM 46255
?*↑C
↑C
.DO NIT
EXIT
↑C
.
SAIL: PUB 1
PUBDFS 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
2 3 4 5 6 7
PUBINR 1
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35DR
YROT REMOP:STCNST
PUB, PAGE 35
00400 FOR J ← "a" THRU "z" DO
DPB(J-("a"-"A"), UPCASE(J)) ; DPB(J←"!", UPCASE(
"_")) ;
CALLED FROM 46255
?*
*↑C
↑C
.R PPSAV